home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)sdg.d64 / print pumpkin (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  740b  |  22 lines
  1. 5 OPEN6,4,6:PRINT#6,CHR$(18)
  2. 6 REM LINE 5 COMPACTS PRINT
  3. 7 REM PRINTER MUST BE RESET TO GET OUT OF IT
  4. 10 OPEN4,4:CMD4:PRINT
  5. 100 PRINT"12345678901234567890123456789"
  6. 110 PRINT"                 [175][175]          "
  7. 120 PRINT"          [175][175][175][175][175][175][206] [206][175][175]        "
  8. 130 PRINT"         [206] [205]   [206] [206] [186] [205]       "
  9. 140 PRINT"        [206]  [206]       [205]  [205]      "
  10. 150 PRINT"       [206]   [183][208][206][205][206][183][183][183][183]   [205]     "
  11. 160 PRINT"      [206]   [206][205]      [206][205]    [205]    "
  12. 170 PRINT"      [180]  [206]  [205]    [206]  [205]   [170]    "
  13. 180 PRINT"      [180] [206] [207][208] [205]  [206] [207][208] [205]  [170]    "
  14. 190 PRINT"      [180] [183][183][183][183][183][183]  [183][183][183][183][183][183]  [170]    "
  15. 200 PRINT"      [180]     [175][175][175][175][175][175]      [170]    "
  16. 210 PRINT"      [180] [175][175][175] [205]    [206]      [170]    "
  17. 220 PRINT"      [180] [205]  [205] [205]  [206]   [175]   [170]    "
  18. 230 PRINT"      [205]  [205]  [205] [183][183]   [206][206]   [206]    "
  19. 240 PRINT"       [205]  [205]  [204][186][183][183][183][183][206]   [206]     "
  20. 250 PRINT"        [205]  [205][175][175][175][175][207][208][206]   [206]      "
  21. 260 PRINT"         [205][175][175][175][175][175][175][175][175][175][175][175][206]       "
  22.